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ODP-17 79-77 
2 September 1977 


Mr- C. David Evans 
GIM-II Project Manager 
United States Department of Justice 
Federal Bureau of Investigation 
Washington, D-C- 20535 

Dear Mr . Evans : 


Documentation and Sample Job Control 
Language for Various Load Modules 

Enclosed is documentation and sample Job Control Language 
{ JCI.) for some of the load modules in the GIM load library. 

Using the list that you sent us, we determined what modules 
are obsolete, what ones are utility programs (independent of 
the GIM software) , and so forth. The following paragraph briefly 
summarizes the purpose of each of these programs and their 
current status. Documentation and sample JCL has been supplied 
only for those modules that are not obsolete and that can be 
used by your installation as an independent utility. Please 
remember that the JCL is a Sa mple and except for DD names, 
should be checked and modified for your system specifications. 

ANALZE is a PL/I program that prepares a file for use by 
the PL/I programs RPTA, RPTB, RPTC, RPTD, PPTE, and RPTF. 

The result of executing this stream is a series of reports 
which analyze the GIM software from different aspects. 

Illustration 1 is sample JCL and documentation for these modules. , 

ASMBLR A is an alias for the GIM assembler, GMfi2, which 
also resides in the load library. 

The Communication Access Method (CAM) modules (CAMCOMMN , 
CAMDD, CAMHETRA, CAMMET, CAMTI) are the terminal support 
routines for the GIM-II system. These programs are essential 
to the software and are not utility routines . 

The following modules were written by TRW. We are not 
using them at present; CARDCOPY, PDSPTPCH, SYSREPRO, TP PRINT . 

CATALOG A is an alias for LOCATEX which also resides in 
the load library. This routine is used by the CATALOG- LOCATE 
option of the GIM-II system and is not a utility. 
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EXEC2 is the current executive controller of the GIM- I I 
Software. EXEC0 was a test executive and is obsolete. 

GAS, GIMS Accounting System, is an assembly language 
program which we are discontinuing. SMFGIMPP is the reporting 
part of this project. 

GIMANAL is a PL/I program that analyzes a GIM data base. 
Illustration 2 is sample JCL and detailed documentation for 
this module . 

GIMPUNCH Is a PL/I program that punches transactions off 
of a GIM history tape. Illustration 3 is sample JCL and 
documentation for this module. 

GIMRSTOR is a PL/I program that restores a GIM data base 
from a GIM ddump physical tape. Illustration 4 is sample JCL 
and documentation for this module . 

PFSLIST is a PL/I program that prints a cross reference 
listing of all the modules used by the GIM-II softv7are. 
Illustration 5 is sample JCL and documentation for this module. 

SYSCHOP is an obsolete program. 

VTOCLIST is an in-house utility program that prints a 
table of contents and track allocation map for a disk pack. 

The output is self-explanatory. Sample JCL is included as 
illustration 6. 


Sincerely yours. 


STATINTlJ 



[MS Division 
Central Intelligence Agency 
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//ANALYZ J C 8 JOB-C ARO-ACCOUNT ing- IN FORMAT ION 
/ / 

/ / **f [ RS T F° CGPAV FCR RUNNING THE ANALYSIS SERIES * 

//** _ _ _ ' 

// E/EC PGY=IFBPTPCH,PEGinN=124K 
/ / $ Y S P R IN T TO SY50U.T=A 

//SYSUTl OP CISP = sV* , DSV*GIM2.SnuPCE, ’ ' • ' 

// OC P=(«FCFM=FR ,3LKS I Zt =3520 , L.PECL=8'0 ) 

//SY S U T 2. . DO UN.I T=s y.SOA ,DI SP=(NEW, PASS) ,DSN=S£HI THERE , 

// S PAC r = ( CY L » (96 ,9 )), OC B= ( RFCP'M= F, PL K S IZ F=8 1 > 

//SYS I N DO * 

punch typp°g=pp 

//GO LX r C PG W -ANALZ F ,RFGI GN=124K,T INE=4 
/ / S T FPL IB. 00 0 I S F= SH k, 0*0=0 1 M2. LOAD 

//GO. SYS PP I NT PQ SYS OUT = A ~ ” 

//GO.STLFP 90 OSN=c;&HI THERE tOI SP=(CLD,CEL C TE,DELFTP) 

//GO. INST rp niSP=SH= f DSN- G I.* 2. MAC LIB ( INST) J 

//GG. SPECIAL 90 0ISP = SHR f DSN = GI w 2 . YACLIB (SPECIAL ) 

//GO . p ASS OJ uN T T= { TA PE », OFFER) ,0SN=G I 02. ANAL t LABEL= ( , SL, RETPC=30 ), 

// nis p - tN P> ‘ » *£ EP L.fJ3C .5= ( R FC FM= FB., B LK $ I ZE = 3600 , LR EC L= 60) 
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//ANALRPl JJB JCR— C A RD— AC C C UN T I N'G— I NFC.RM AT I CK 


//* 

//** 

/ /** 
//** 
//** 
//** 
//** 
//** 

/ / *=? **£ 




SECOND 
REPORT 
REPCIR T 
R £P3R T 
REPORT 


P p OS RA M— GE NE RATES 


.. - ',... ... ■ *, * 

REPORTS 1,2,3,31/2 

PERCENTAGE USE OF PwS INSTRUCTIONS FOR ENTIRE SYSTEM 

... SOFTWARE. COIKRULER COMPONENT USE BY MODE. 

REJCTR USAGE IN NUMERICAL ORDER (#/SET BY) 

1/2: REJCTR USAGE BY M^DS (SETS/*) 


ANAL YSI S 

U 
2 : 

3: 

3 


: £ £ * sjc £ $ £ ** :{r3r3)cj£ ^ v, ^ ^ 


//GO EX EC PGY=RPT A, REGION* 124K, T IM c=3 

J /STEP LI 3 m DI SP=SHR,DSN=GIM2.L0A0 _ 

//GO. SYS PRUT DO SYSOUT* A * 

//GO. INST DD D I S P = S W R , DS N= G I M2 .MAC LIB (DATTA) 

//C.S T UPF DP UMI T= (.2.400, .DEFER) ,D SN*GI M2 . ANAL , LABEL* (, SL) , 
// E IS p = (OL r,P ASS ) , OC.B= ( P ECFM = CB , P.LK SI ZE= 3 600, LR ECL = 60 j , 

// VOL = SE 0 =1 234-56 
/* 


//COE EXEC D GM=P PT 3, P.FG ION* 124K, TIM E= 3 
//STEPLIB 00 DI SP = SHR ,DSN=GIM2 . LOAD 

// GO 8 .S YSL MOD Of) UN I T= S Y SD A , SP AC E * ( 1 024 , ( 50,2C,1) ,,, ROUND) 

//SYSLIN DC SPACE* {80, ( 15D, 10) ),l.JN IT=SYSDA 

//GOP . SORT LI B DP n SNA ME = 5 YSI . SDR TL I 3 , C I S P=S HR 

// GUB .SYSUT 1 DP UN IT= ( S YSD A » SE° = { SYSLIN, SURTLI B , SYSLMCD) ) , 

// -SPACF* (1 024 , (60 ,60 ) ) 

//GOB. SYSOUT Dp SYSOUT=A 
//GCB. SYS PRINT DC SYSDUT=A 


//GOB. SOR TIN DD UNIT=3YSDA , CS N =8 SSI , D fS P= (NEW , DEL EYE, CEL-ETE ), 

// E ; C B = ( R E C c M = F B , B L K S I Z F = 18 00, LEE C L = 20) » SP ACE = < C YL » ( 60 ,2 ) ) 

/ /GOB. SORT CJT DD U NIT = S.YS D A, DSNrS&Sn, D ISP = ( NEW, DELETE ,DE LETE) , 

/ / DCB=(R C CF M = FB , B LKS I Z E = 10 00 , LR c C L = 2 0) , SPACE = ( C YL , (60 ,2 ) ) 
//GOP. SORT N KO 1 DO U N IT = S YS D A, S P AC p = ( TRK , { 80 ) , R L SE .CONTI G ) 

/ /G0 P . SOR T WKO 2 DO UNI T = S Y SD A , 8 P AC c = (TRK , (30 ) , R LS E , COM" IG) 

// GCB .S0R T W’<G3 op UM I T= SYSDA , SPACE = ( Tc k ,{ 00) ,P LSE tCCKTIG) ’ " 
//G n 5. SORT WKO 4. DO U M IT = SYS D A, S P AC F= IT R K , ( 80 ), RL S E , CON TI G ) 

//GOB. SGRTWK05 DP UNI .T* SYSD A , ‘SPACE =( TF K , (30 ) , R LS E , CO NT I G ) 

// GCB. SORT WK06 OP UN I T = S Y S DA , S P AC E =( trk ,( 00) , R L SE , CON T I G ) 

//GDR. TRANS DD D Sf ;=G I N’2 .ANAL, PIS P= (OLC, PASS ), UN IT= (2400, , DEFER ) 
/* 

/ / GOC EXEC PGM=RPTC, REGION* 1 24k","t J M E= 3 
//STEPLIB D° DI SP=SH R , DS N=G I M2 • L GAD 

//GOC.SYSLMOD pp UN IT* S YSD A , S p AC . = * ( 1024,( 50,2 C,l) ,,, ROUND) 
//SYSLIN nn S PACE* (dO, ( 150, 10) ), UM IT* SYSD-A 
//GOC. SORT UP DO P SNA ME* S YS1 . SOR TL I 8 , C I S P=S HR 
//GCC. SYSOUT DC SYSBUT=A 

//GOC.SYSPRI NT DC SYS CUT* A ~ ’ " . ' ~ 

//GOC. SORTIN DP UNI T=SYSDA ,DSN=£& SI ,DI SP=( NEW .DELETE, DELETE), 

// n C B= (.RECfM-FB, BLK.SJZE* 1800, LRECL* 20) , SP.ACE = ( CYL,( 60,2) ) 

//GDC . S0 P T OUT DD UNI T = SYSDA ,DS N=Kr,S 0, CIS P= (NEW, DEL ET E, DEL P TE ) , 
// DC6= ( s ECFM = FB » P IKS I Z E = 18 00 , LREC L = 2 0) , SPACE = ( C YL , ( 60 ,2 ) ) 

// GOC .S r R T W KO 1 PD u N 11 = SYS D.A, SPACE* (TPK, ( 80),RLSE,CONTIG) 

//GOC. SORT WKO 2 DD UNI T = S YSD A , S P AC E = ( Tp k , (30 ) , P LS £ , CGNT I G ) 

7 /GOC . SOR T WK 03 DD UNI T=SYSDA , SPACE = ( TRK , <80 ), RLS E , CGNT IG) 
//GCC.SORTwKOR DD UN IT=SYSOA ,SPACF = ( T RK ,( 80) , RL SE ,j CONTI G ) 

//GCC. SORT WK05 DC . UNIT=SYSDA,S PACE* (T RK, (80 ), RLS E, CGNT IG) 

//GDC .SORT *K 06 DD UNI T= S YSD A , SPACE = ( TP K , ( 80) , p L S c , CC NT I G ) 

//GCC. TR.ANS CD CS N=G I M2 . AN AL, nisp= (OLD, KEEP ) , UN I T=C 2400, ,DEFE P. ) 
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// AN A l RP2 JOB JOB-CAP D- ACC HUNT I NG- I NFORMATI ON 

/ /ifix jjt * fit* if* # aft * * * if ifif ** sfc # £#3* * * ** fc#^*#*#^***:**#*:#**' 5 !' if if * if £if *** $ 

//** . . .... _ '• '-... ' -- * 

//** THIRD AN ALYS IS 'PROGRAM-GENE RATOS REPORTS 4 THRU t * 

/ /if if report 4: SOFTWARE COMPUTER COMPONENT USE BY COMPONENT * 

f fifif REPORT 5: USE Of D WS INSTRUCTION BY DECK • * 

//** REPORT 6: US c O r PwS INSTRUCTION BY INSTRUCTION * 

//** report 7: EXIT points FROM DECKS (FPCM/TC) * 

//** REPORT 8: ENTRY. POINTS TO DECKS H TO /FRO Mi - * 

/ /if if * 

/ /if if ******* ************** *i?if ********* if if ififiiiiifiiifif if if if** if*** if **■*%**** ****** 

//JCBLIB DC DISP =S HR , O S f ■= G I M2 .LOAD - - — - - 

//GO EXEC P3 M=P. PTp it REG I CJN=1 24 K »T I M E=3 
//GO .SYSPR PIT DO S YSOUf = A 

//GO.SYSLIN CO S PACf= (80, (150, 10) ),UN IT=SYSDA 

//GO. SYSLMC1 OD UNI T= SYSD A , SPACE=(1024 , (50 ,20 ,1 ) , , ,RCUNC) 

//gg.sortl re do dsn=sysi.sortl ib ,di sp = shr 

//GC.SYSUTl DO 'UNI T = ( SY S 0 A ,S EP=(S Y S L I N» S ORTL I E, SYSLMO C) ), 

// SPACE=( 1024, ( 60, 60) ) 

//GG.SYSOUT CD SYSf)UT = A 

//GO. SGRTI N OD UNI T=SY SD 4 , 0$ N=£8S I , D IS P= ( N Ew , DEL ET E, CEL ETE) , 

// OCB={ R ErFN' = FB ,P LKSI ZE = 1800, L^E CL = 20) , SP ACE = (CYL , (60 ,2 I ) 

/ / GO .S CRT CUT DO U NIT = S YS DA, CSN= S (ISO , D I S°= { N EW , DFLE TE ,DF LE TE ) , 

// D C B = ( RrCF M = Fb ,BLKSI ZE = 1300 , LRECL =20 ) ,S D ACE = (CYL, (60,2) ) 

/ /GC .S QRTir.KOl DO UN IT= SYSD A , SP AC c = ( TR K , ( 8 0) »R L SE ,C CN T I G ) 

/ /GO. SORT* K02 DD U M T= SY S D A, S P AC E= ( T R K , ( 8 0 ) , R L S c , C ON T I G ) 

//GO. S0RTWK03 DD LJM I T= S YSO A , S D AC E = ( TR K , l CO ) , R LS E , C CNT I G ) .. 

// GC.S0RTWKO4 CD UN I r = S Y S 0A , S PAC E = ( TR K , { 80) ,R L S c , CONTIG ) 

//GO. SCR T ir- K 0 5 PD UNI T = S Y S 0 A ,S PACE* (T RK, (80 ) , RLS r , CONT IG* 

//GO .S0RTWK06 DD UNI T= SYSD A , SPACE* ( TR K , ( 80) ,R LSE ,CCNTIG) 

//GO. TP A NS CD UNIT* (2400, , DEFER ), DSN= G IM2 .AN AL »LA3FL = ( ,SL ) , 

// D I S P = ( n LD , P A SS) ,DCR= (RECEM = FC, RLKS I ZE=3oOO , L RECL=60 ) , 

// VCL=SER= 123456 . 

/* 

//GOE EXEC °G M= P.P T E , R EG I ON =1 24 K » T I ME =3 

// GOF.SYSPRTMT DC SYSOUT = ,\ . . 

//GC C . SYSLVCD DD UNIT = SYSDA ,S PACE= (1024, (50, 20, 1), , , ROUND) 

//GO c .SYSL IN DD S D A r E = ( fa 0 , { 15 0 , 10) ) , UNI T‘=SY S 0 A 
//GCC .SORT LIB CD OS N AM E= S YS 1 .$ OP TL I B , D I SP = SHR 
//GO?. SYSUT1 DC UNI T = { SYS DA ,S c P= (S YS L IN,SQPTL I B, SY SL MC 0 ) ) , 

// SP AC E=( 1)24, ( 60, 60) ) 

//G pr . SYS OUT on SYS CUT = A 

/ /GO r * SORT! N Du UNI T = S Y S D A ,DSN*f.£SI ,DISP=( NEW ,0E LET E , DELFT F ) , 

// OCR- (RECrV* FB, BLK S IZ r = 36C0, LR C C L = 1 8 ) , S°ACF =(CYL,( 80,2) ) 

//GC C . SCRTCUT CD UN I T = S Y S D A , OS N = 8 SS 0 , 0 IS P= ( N FW , C FL ET E, DEL ETE ) , .. . 

// DCB=(RECFM=EB , a LK SI l r =3 6 CO , LRE C L=1 8) , S PAC F = ( C Y L , ( 80 ,2 ) ) 

/ / GC c • S 0 RT wKO 1 CD UN IT = SYS n 'A, SP4CE= ( TRK , { 90) , R L SE , CONTIG ) 

//GOE. SORT UK 02 DO UNI T =SY S D A ,S P AC r = (T RK, (90 ) , RLS E, CONT I G ) 

// GO E. SORT WKO 3 DD UNIT* SYSD A , SP AC F = ( TP K , ( $ 0) »R LSE , CON TIG) 

/■/GCF.SORF WK04 DO UNIT = SYSDA, SP AC E=(TPK, (90), PLSE, CONTIG) 

//GOE. SCRTWK05 DD UNI T= SY SO A , SP ACE = ( T P K , (90 ) , PLS E , CC NT I G ) .. 

//GGE.SDRTWK06 DC UN IT* SYSDA , SP AC E = ( TR K ,( 90) , P LSE , CONTI G ) 
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//GC C . TRANS DO -JM IT= i[ 2400» » DF r ER ) »bSN=GI M 2. ANAL »DI SP = (QLD ,PASS) 
/* 

/ / GO F EXEC ■' 5 GM-PPTF,RE3I0N=124K,TI YE =3 
//GGF.SYSPP TNT PD SYS r ’ JT = A 

//GOF. SYSL^CO pp UNI T =SY S D A ,S PAC E= ( 1 024 , ( 50 , 20, 1 ) , , , ROUN D ) 

//GOF.SYSLIN OH UN LT= SYSO A , SP AC E = { 80 1 ( 1 50 , 1 0) ) 

//_GCF . S ORT L! R CD OS NAM £= SY S 1 .S ORTL I R, C I SP = SHR 

//GOF, SYSUT 1 nr UNI T=( SYSDA »SEP={ SYSLIN,$CRTLIB,SYSLYCD) ) , 

// .... .SPACE® ( 1024, J 60, 60} ) * .. . 

//GOF. SYS OUT DO SYSOJT=A 

//G0<=. SHR TIN DH UNI T= $ Y SO A ,DSN=££ SI ,01 SP=( NEW ,0E LET E , CEL ET E I , 

// CC F=. ( R E CFM= FR, GL K S IZ F = 1R00»LRECL= 18) , SP ACE = t C YL »( 60 , 2) ) ... 
//GOR, SO 5 TOUT DP UNIT=SYSDA ,DS N-66S 0, DISP=(NFW, CEL ET E, HEL ET6) , 
// DC B = ( T EC F M=FC LKSI ZF = 1800 , LR EC L = 1 3) , SPACE = ( CYL , (60 ,2 ) ) 

//GOF. SORT w KOI... OD..uK ! IT = SYS DA, SPACE® (TRK, ( 80 ) , F; L SE ,CQNTIG ) 

//GOF. S0RTWK02 DO U^'I T = SYSD A , S PAC F = {TRK, (50 ) ,RLSE,CCNT IG) 

// GOF .SORT WK03 00 UN I T= SYSDA , SPAS E = ( TRK , ( 30) ,RLSF. ,C0NTIG) 

//GOF.SfJPT WK04 DC UNIT -SYSDA, SPACE= (TRK, (80), RLSE,CONTIG) ... _ 

//GOF. SDR T WK 0 5 DO IJNI T=CYSOA ,SPACE = ( TRK,(RO) ,RtS c ,CCNT IG) 
//G0F.SDRTWK06 00 UN I T= S Y S DA , SP AC r =< TP X , ( 80) » P L SF , CONTI G ) 

//G0 C . TRANS rn U.N J Y - { 2 4 0 0 , , DF r ER ) , CS N = GIM2. ANAL, DISP= 10L D,KEEP ) 
/* 


/ 


__ . ___ 
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